home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / propmgr2.arc / LIST.ACG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.3 KB  |  71 lines
  1. * DATE 08/27/84  13:06
  2. * list.ag
  3. STOR CHR(peek (063)) TO dr
  4. SET INDEX TO &dr.:lastname
  5. STOR 'A' TO stletter
  6. @ 17,12 SAY 'Letter of alphabet at which to start report'
  7. @ 17,57 GET stletter PICTURE '!'
  8. READ
  9. STOR 'Z' TO llet
  10. @ 18,12 SAY 'Letter of alphabet at which to end report'
  11. @ 18,57 GET llet PICTURE '!'
  12. READ
  13. FIND &stletter
  14. DO WHIL # = 0
  15.  STOR 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ' TO ALPHABET
  16.  STOR @(stletter,ALPHABET) + 1 TO NEXL
  17.  STOR $(ALPHABET,NEXL,1) TO stletter
  18.  FIND &stletter
  19.  RELE alphabet
  20. ENDD
  21. STOR 0 TO pageno
  22. STOR t TO more
  23. SET MARGIN TO 10
  24. DO WHIL more
  25.  STOR pageno + 1 TO pageno
  26.  STOR 6 TO lineno
  27.  ERAS
  28.  EJEC
  29.  ? '  '
  30.  ? '==========================      MAILING LIST  ======================'
  31.  ? ' '
  32.  ? '         ' + date() + '                                           PAGE: '+ STR(pageno,3)
  33.  ? ' '
  34.  DO WHIL lineno < 55
  35.   IF .NOT. EOF
  36.    ? '-------------------------------------------------------------------'
  37.    IF $(lastname,1,1) <> llet
  38.     ? '     ' +  "Name: "+ mr + TRIM(fname) +' ' + lastname
  39.     ? '     ' + "Spouse: " + spouse + "Address as: " + dear
  40.     ? '     ' + "Title: " + title
  41.     ? '     ' + "Company: " + company1
  42.     ? '     ' + "       : " + company2
  43.     ? '     ' + "Address: " + caddress + "  " + suite
  44.     ? '     ' + "         " + ccity +', ' + cst + '  ' +czip
  45.     ? '     ' + "Home address: " + address + "  " + apt
  46.     ? '     ' + "              " + city +', '+  st + '  ' +zip
  47.     ? '     ' + 'Phones - office: ' + ophone + ' home: ' + phone
  48.     ? '     ' + "Codes:  " + cs1 + ' ' + cs2 + ' ' + cs3 + ' ' + cs4 + ' ' + cs5 + ' ' + cs6
  49.     ? '     ' + "Send to office: " + send
  50.     ? '     ' + "Date update: " + update
  51.     STOR lineno +13 TO lineno
  52.     SKIP
  53.     IF *
  54.      SKIP
  55.     ENDI
  56.    ELSE
  57.     SKIP
  58.    ENDI $(lastname,1,1)
  59.   ELSE
  60.    STOR f TO more
  61.    STOR 60 TO lineno
  62.   ENDI not EOF
  63.  ENDD while lineno < 55
  64. ENDD more
  65. EJEC
  66. SET PRINT OFF
  67. SET ALTERNATE OFF
  68. RELE pageno, lineno, mname
  69. STOR t TO more
  70. STOR t TO first
  71.